home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visds / dragdrop.dsc < prev    next >
Text File  |  1999-05-02  |  458b  |  17 lines
  1.     Title Drag and Drop Example
  2.   DIALOG CREATE,Drag and Drop Example,-1,0,294,188,DRAGDROP
  3.   DIALOG ADD,BUTTON,OK,136,52,64,24
  4.   DIALOG ADD,BUTTON,Cancel,136,180,64,24
  5.     DIALOG ADD,LIST,LB,10,10,272,114
  6.   DIALOG ADD,STATUS,SB,Drag files from Explorer and drop on the dialog
  7.   DIALOG SHOW
  8. :loop
  9.     wait event
  10.     %E = @event()
  11.     if @equal(%E,DRAGDROP)
  12.         list create,LB
  13.         list DROPFILES,LB
  14.         dialog set,SB,@count(LB) files were dropped
  15.         goto loop
  16.     end
  17.